Visual Basic 5 Developer's Kit/vb5 dev kit.iso/dev/mailx6/_setup.2/Group4/OCXMSGF.FRM

Visual Basic Form | 1996-06-08 | 6.6 KB | 227 lines

VERSION 4.00
Begin VB.Form MsgForm
   BackColor       =   &H00C0C0C0&
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "Message Form"
   ClientHeight    =   4125
   ClientLeft      =   1785
   ClientTop       =   1770
   ClientWidth     =   6105
   BeginProperty Font
      name            =   "MS Sans Serif"
      charset         =   1
      weight          =   700
      size            =   8.25
      underline       =   0   'False
      italic          =   0   'False
      strikethrough   =   0   'False
   EndProperty
   Height          =   4500
   Left            =   1740
   LinkTopic       =   "Form1"
   MDIChild        =   -1  'True
   ScaleHeight     =   4125
   ScaleWidth      =   6105
   Top             =   1440
   Width           =   6195
   Begin VB.PictureBox Picture1
      BackColor       =   &H00C0C0C0&
      Height          =   615
      Left            =   -120
      ScaleHeight     =   585
      ScaleWidth      =   6225
      TabIndex        =   12
      Top             =   0
      Width           =   6255
      Begin VB.CommandButton BtnSend
         Caption         =   "Send"
         Height          =   375
         Left            =   4305
         TabIndex        =   16
         Top             =   120
         Width           =   1125
      End
      Begin VB.CommandButton BtnForward
         Caption         =   "Forward"
         Height          =   375
         Left            =   2880
         TabIndex        =   15
         Top             =   120
         Width           =   1155
      End
      Begin VB.CommandButton btnReply
         Caption         =   "Reply"
         Height          =   375
         Left            =   1470
         TabIndex        =   14
         Top             =   120
         Width           =   1170
      End
      Begin VB.CommandButton BtnHide
         Caption         =   "Hide Msg"
         Height          =   375
         Left            =   120
         TabIndex        =   13
         Top             =   120
         Width           =   1125
      End
   End
   Begin VB.ComboBox szFileList
      Height          =   315
      Left            =   1320
      TabIndex        =   11
      Top             =   2775
      Width           =   1935
   End
   Begin VB.TextBox szOriginator
      Height          =   375
      Left            =   4440
      TabIndex        =   10
      Top             =   2760
      Width           =   1575
   End
   Begin VB.TextBox szMsgID
      Height          =   495
      Left            =   1320
      TabIndex        =   7
      Top             =   3240
      Width           =   4695
   End
   Begin VB.TextBox szTime
      Height          =   375
      Left            =   1200
      TabIndex        =   6
      Top             =   2280
      Width           =   4815
   End
   Begin VB.TextBox szNoteText
      Height          =   855
      Left            =   1200
      MultiLine       =   -1  'True
      TabIndex        =   3
      Top             =   1320
      Width           =   4815
   End
   Begin VB.TextBox szSubject
      Height          =   375
      Left            =   1200
      TabIndex        =   1
      Top             =   840
      Width           =   4815
   End
   Begin Mailx16Lib.MFile MFile1
      Left            =   120
      Top             =   3600
      _version        =   65542
      _extentx        =   900
      _extenty        =   900
      _stockprops     =   0
      bindstring      =   "MMsg1"
   End
   Begin Mailx16Lib.MReci MReci1
      Left            =   720
      Top             =   3600
      _version        =   65542
      _extentx        =   900
      _extenty        =   900
      _stockprops     =   0
      bindstring      =   "MMsg1"
   End
   Begin Mailx16Lib.MMsg MMsg1
      Left            =   360
      Top             =   1800
      _version        =   65542
      _extentx        =   900
      _extenty        =   900
      _stockprops     =   0
      bindstring      =   "FormTag1.MSess1"
      fastfetch       =   -1  'True
   End
   Begin Mailx16Lib.MForm MForm1
      Left            =   4200
      Tag             =   "FormTag3"
      Top             =   3840
      _version        =   65542
      _extentx        =   2778
      _extenty        =   500
      _stockprops     =   0
      mxformname      =   "FormTag3"
   End
   Begin VB.Label Label6
      BackColor       =   &H00C0C0C0&
      Caption         =   "Attachments:"
      Height          =   375
      Left            =   120
      TabIndex        =   9
      Top             =   2760
      Width           =   1215
   End
   Begin VB.Label Label5
      BackColor       =   &H00C0C0C0&
      Caption         =   "Originator:"
      Height          =   375
      Left            =   3450
      TabIndex        =   8
      Top             =   2805
      Width           =   960
   End
   Begin VB.Label Label4
      BackColor       =   &H00C0C0C0&
      Caption         =   "Message ID:"
      Height          =   375
      Left            =   120
      TabIndex        =   5
      Top             =   3360
      Width           =   1215
   End
   Begin VB.Label Label3
      BackColor       =   &H00C0C0C0&
      Caption         =   "Time:"
      Height          =   270
      Left            =   150
      TabIndex        =   4
      Top             =   2355
      Width           =   855
   End
   Begin VB.Label Label2
      BackColor       =   &H00C0C0C0&
      Caption         =   "Note Text:"
      Height          =   375
      Left            =   120
      TabIndex        =   2
      Top             =   1320
      Width           =   975
   End
   Begin VB.Label Label1
      BackColor       =   &H00C0C0C0&
      Caption         =   "Subject:"
      Height          =   375
      Left            =   120
      TabIndex        =   0
      Top             =   840
      Width           =   855
   End
Attribute VB_Name = "MsgForm"
Attribute VB_Creatable = False
Attribute VB_Exposed = False
Private Sub BtnForward_Click()
    MMsg1.NoteText = szNoteText
    MMsg1.Action = ACTION_FORWARD
    MMsg1.Action = ACTION_SENDMSG
End Sub
Private Sub BtnHide_Click()
    Unload Me
End Sub
Private Sub btnReply_Click()
    MMsg1.Action = ACTION_REPLY
    MMsg1.Action = ACTION_SENDMSG
End Sub
Private Sub BtnSend_Click()
    MMsg1.Subject = szSubject
    MMsg1.NoteText = szNoteText
    MMsg1.Action = ACTION_SENDMSG
    If MMsg1.ErrorNum <> 0 Then
        MsgBox "Error Sending Message"
    End If
End Sub